unit mainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, bsSkinCtrls, BusinessSkinForm, bsSkinData, childForm, CFBillAdd;

type
  TmainFrm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinMainMenuBar1: TbsSkinMainMenuBar;
    bsSkinMainMenu1: TbsSkinMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    bsSkinButtonsBar1: TbsSkinButtonsBar;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainFrm: TmainFrm;

implementation

{$R *.dfm}

procedure TmainFrm.N4Click(Sender: TObject);
var
  Child: TBillAdd;
begin
  { New Child }
  Child := TBillAdd.Create(Self);
  Child.Caption := Child.Caption;
end;

end.
